home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #9 / K-CD-9-2002.ISO / F1 2002 / f1_2002_wip_demo.exe / Season02 / Drivers / gamestates.scp < prev    next >
Encoding:
Text File  |  2002-04-22  |  1.0 KB  |  81 lines
  1. // test script
  2.  
  3. // some start states I have so far
  4.  
  5. //pit is done
  6. //IF=22
  7. //    EVENTQUEUE(15)
  8. //THEN
  9. //    GORACE()
  10. //    SETPASSING(0)
  11. //    SETMAXSPEED(18)
  12. //    SETCURRENTBRANCH(1)
  13. //    IGNORECARS(1)
  14. //END
  15.  
  16. //formation lap
  17. IF=23
  18.     EQUAL(GETGAMEPHASE(),3)
  19. THEN
  20.     GORACE()
  21.     SETPASSING(0)
  22.     SETMAXSPEED(46)
  23.     GOTOSTARTGRID()
  24. END
  25.  
  26. // green flag
  27. IF=24
  28.     EQUAL(GETGAMEPHASE(),5)
  29. THEN
  30.     GORACE()
  31. END
  32.  
  33.  
  34.  
  35.  
  36. // we're in the garage
  37. IF=25
  38.     NOT(EQUAL(GETGAMESESSION(),7))
  39.     NOT(EQUAL(GETGAMESESSION(),8))
  40.     EVENTQUEUE(0)
  41. THEN
  42.     SETPASSING(0)
  43.     SETMAXSPEED(18)
  44.     SETSTATE(5)
  45.     SETCURRENTBRANCH(1)
  46.     IGNORECARS(1)
  47. END
  48.  
  49. //pit out
  50. IF=26
  51.     EVENTQUEUE(5)
  52. THEN
  53.     SETMAXSPEED(99999)
  54.     IGNORECARS(0)
  55.     SETPASSING(1)
  56. END
  57. // pit in
  58. IF=27
  59.     EVENTQUEUE(4)
  60. THEN
  61.     GOTOPITPOSITION()
  62.     SETMAXSPEED(18)
  63. END
  64.  
  65. // pit lane in
  66. IF=29
  67.     EVENTQUEUE(14)
  68. THEN
  69.     SETPASSING(0)
  70.     IGNORECARS(1)
  71.     GOTOPITPOSITION()
  72. END
  73.  
  74. // countdown
  75. IF=30
  76.     EQUAL(GETGAMEPHASE(),4)
  77. THEN
  78.     SETCURRENTBRANCH(0)
  79.     SETMAXSPEED(99999)
  80.     SETPASSING(1)
  81. END